home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Programming / AMOSList / AMOSLIST / text0081.txt < prev    next >
Encoding:
Text File  |  1998-04-01  |  1.9 KB  |  57 lines
  1. On 08-Mar-98, mg40067 smashed the keyboard with:
  2. > Here my problem.  short example
  3. > 
  4. > --text.txt look like this--
  5. > 5
  6. > 8
  7. > --end text
  8. > 
  9. > r$="text.txt"
  10. > open in 1,r$ : a=lof(1) : close 1
  11. > reserve as work 16,a
  12. > bload r$,16
  13. > abc=start(16)
  14. > c1=peek(abc) : inc abc : c2=peek(abc)
  15. > print c1         : rem gives the ascii value
  16. > print chr$       : show numer 5
  17. > 
  18. > Ok how will do to make amos to understand that i want to threat this
  19. > as a number instead of an ascii value?
  20. > 
  21. > Is there anyway to convert that 5 (53) so 
  22. > i can use it like this
  23. > 
  24. > tal=c1+c2 
  25. > print tal      : want it to be 13
  26. > 
  27. > please help me...
  28.  
  29. Just one thing, You have shown in your text that you have a line-feed
  30. between the numbers, if you have that you should use this way to get
  31. the data:
  32.  
  33. S=Start(BNK)
  34. C1$=Peek$(S,100,Chr$(10)) : Add S,Len(C1$)+1
  35. C2$=Peek$(S,100,Chr$(10))
  36. C1=Val(C1$) : C2=Val(C2$)..
  37.  
  38. If you have number as you write above then this should work:
  39. C_VALUE=Val(Chr$(C_ASCII)) 
  40. -- 
  41. Kind regards from
  42. ______________________________________________________________________________
  43.  /_  __/ __  / __  /\  ___\  __ \__  _\               aka. JENS VANG PETERSEN
  44.   / / / /_/ / ____/  \ \___\  __ \ \ \                  top_cat@post8.tele.dk
  45.  /_/ /_____/_/        \_____\_\ \_\ \_\
  46. ------------------------------------------------------------------------------
  47.                     http://home8.inet.tele.dk/top_cat/
  48.   -+-    Home of 'The Ultimate Extension list' for AMOS TC & AMOS PRO    -+-
  49.                  -+-  SUPPORT - AMOS - AMIGA - AQUA  -+-
  50. ------------------------------------------------------------------------------
  51.  I know not with what weapons World War III will be fought, but  World  War  IV
  52.  will be fought with sticks and stones.
  53.                                                            -- Albert Einstein
  54. ------------------------------------------------------------------------------
  55.  
  56.  
  57.